home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 104
/
Tiger_Disk_104_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
ende ii_67
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
453b
|
4 lines
1 s=54272:pokes+24,15:pokes+5,12:pokes+6,43:pokes+7,200:pokes+8,32
2 print"[147]";:pokes+13,87:pokes+4,33:pokes+11,81:pokes+1,9:pokes+8,22:pokes+13,185:poke53280,.:poke53281,.:poke53265,80:forc=1to18:poke646,c*2:printtab(c);"[145]";:pokes+4,33:pokes+11,128:printtab(c);:poke53282,peek(53283):fort=10to33stepc-3.333:pokes+1,t:pokes+4,64 :pokes+11,81:poke646,t
8 printtab(t)" [160] [160] [160] [160] [160] [160] [146][160]ende [160] [160] [160] [160] [160] [145][145]";:poke53284,t:printspc(39)"";:pokes+11,128:pokes+4,129:poke53283,c:poke53282,t:next:print"[147]";:next:poke56325,.:print"lukian":poke56325,55:fort=1to300:next:sys2048